home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / +] multi med res (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  639 b   |  16 lines
  1. 5 ifgthen100
  2. 10 y=0:print"[147] multicolor medium resolution demo "
  3. 20 print"[150]see the [153]r[150]egular or [153]c[150]ompiled version?"
  4. 30 print"(the compiled version is better)"
  5. 40 print"please enter [153]<r>[150] or [153]<c>[150]."
  6. 50 y=y+1:getx$:ifx$=""andy<700then50
  7. 60 ifx$<>"r"andx$<>"c"andx$<>""then50
  8. 70 e$="":ifx$="c"orx$=""thene$="c/":print"[153]<compiled>[150] coming up":goto90
  9. 80 print"[153]<regular>[150] coming up"
  10. 90 fora=1to1500:next:print"[147]"
  11. 100 g=g+1:onggoto110,120,130
  12. 110 load"multicolor mr",8,1
  13. 120 load"m.mr set",8,1
  14. 130 print"[147][144]load"chr$(34)e$"m.mr demo"chr$(34)",8";
  15. 140 poke198,4:poke631,13:poke632,82:poke633,213:poke634,13:new
  16.